home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / misc / ftransd_.lha / FTransD_2.1a / Install-FTrans < prev    next >
Text File  |  1995-09-29  |  8KB  |  345 lines
  1. ; Installer Install-Script $VER: 2.1 für FTrans 2.1 Demo, 29.09.95
  2.  
  3. (set picked_user-level @user-level)
  4. (set @default-dest "")
  5. (set ftrans-default_dest "WORK:")
  6. (set ftrans "FTrans")
  7. (set ftrans_guide "FTrans.guide")
  8. (set ftrans_arexx "ARexx-Scripts/FTrans.rexx")
  9. (set ftced_script "ARexx-Scripts/FTCed.ced")
  10. (set ftced2_script "ARexx-Scripts/FTCed2.ced")
  11. (set ftced3_script "ARexx-Scripts/FTCed3.ced")
  12. (set ftced_datei_script "ARexx-Scripts/FTDatei.ced")
  13. (set ftced_block_script "ARexx-Scripts/FTBlock.ced")
  14. (set ftged_script "ARexx-Scripts/FTGed.ged")
  15. (set rexx_dir "REXX:")
  16. (set libs_dir "LIBS:")
  17. (set ged_arexx_dir "GoldEd:ARexx")
  18. (set rexxcedlib212 "CEDSupportLibs/ced212/rexxcedsupport.library")
  19. (set rexxcedlib35  "CEDSupportLibs/ced35/rexxcedsupport.library")
  20.  
  21. ;=============================================================================
  22. ; German strings
  23.  
  24. (set #bad-kick
  25.  (cat "Sie müssen Kickstart 2.04 auf Ihrem Rechner installiert haben\num dieses Script zu verwenden.\nFTrans ist erst ab dieser Kickstart funktionsfähig!")
  26. )
  27.  
  28. (set #where-ftrans "In welchem Verzeichnis soll FTrans installiert werden?\nAchtung, eine Schublade im angegebenen Verzeichnisspfad mit Namen FTrans wird noch automatisch angelegt.")
  29. (set #demo_arexx   "\nSoll das Demo-Arexx-Script nach REXX: installiert werden?")
  30.  
  31. (set #help_demo_arexx_script "Ja   - installiert das ARexx-Script nach REXX:\nNein - überspringt diesen Teil, das ARexx-Script\n       wird nicht installiert.")
  32.  
  33. (set #copying-ftrans     "Kopiere FTrans...")
  34. (set #copying-dicts      "Kopiere Wörterbuch/Wörterbücher...")
  35. (set #copying-help       "\nInstalliert die selektierten Wörterbücher.")
  36.  
  37. (set #copying-ced212lib  "\nKopiere rexxcedsupport.library für CED 2.12 nach Libs:...")
  38. (set #copying-ced35lib   "\nKopiere rexxcedsupport.library für CED 3.5 nach Libs:...")
  39.  
  40. (set #copying-ftrans_guide "\nKopiere FTrans.guide...")
  41.  
  42. (set #copying-ged_arexx-script  "\nKopiere ARexx-Script FTGoldEd.ged nach GoldEd:ARexx/...")
  43.  
  44. (set #copying-ced_arexx-script  "\nKopiere ARexx-Script FTCed.ced nach REXX:...")
  45. (set #copying-ced2_arexx-script  "\nKopiere ARexx-Script FTCed2.ced nach REXX:...")
  46. (set #copying-ced3_arexx-script  "\nKopiere ARexx-Script FTCed3.ced nach REXX:...")
  47. (set #copying-ced_datei_arexx-script  "\nKopiere ARexx-Script FTDatei.ced nach REXX:...")
  48. (set #copying-ced_block_arexx-script  "\nKopiere ARexx-Script FTBlock.ced nach REXX:...")
  49. (set #copying-ftrans_arexx-script  "\nKopiere ARexx-Script FTrans.rexx nach REXX:...")
  50.  
  51. (set #copying-rexx-scripts "\nWelche ARexx-Scripts sollen nach REXX: kopiert werden?")
  52.  
  53. (set #install-msg
  54. (cat "\n\nFTrans Installations-Script.\n"
  55.      "Dieses Script installiert FTrans auf Ihrem Amiga.\n\n"
  56.      "Lesen Sie die Dokumentation zur genaueren Information.\n\n"
  57.      "FTrans © 1992-1995 Rainer Hess\n"
  58.      "Alle Rechte vorbehalten."
  59. ))
  60.  
  61. ;=============================================================================
  62. ; make sure we are running under a 2.04 ROM
  63.  
  64. (if (< (/ (getversion) 65536) 37)
  65. (
  66.     (abort #bad-kick)
  67. ))
  68.  
  69. ;=============================================================================
  70.  
  71. (complete 0)
  72.  
  73. (message #install-msg)
  74.  
  75. (complete 1)
  76.  
  77. (set ftransdir
  78.     (tackon
  79.         (askdir
  80.             (prompt #where-ftrans)
  81.             (help @askdir-help)
  82.             (default ftrans-default_dest)
  83.         )
  84.     "FTrans"
  85.     )
  86. )
  87.  
  88. (complete 10)
  89.  
  90. ; Schublade anlegen
  91. (makedir ftransdir (infos))
  92.  
  93. (copyfiles
  94.     (prompt #copying-ftrans)
  95.     (source ftrans)
  96.     (dest ftransdir)
  97.     (infos)
  98.     (noposition)
  99. )
  100.  
  101. (complete 25)
  102.  
  103. (copyfiles
  104.     (prompt #copying-ftrans_guide)
  105.     (source ftrans_guide)
  106.     (dest ftransdir)
  107.     (infos)
  108.     (noposition)
  109. )
  110.  
  111. (complete 35)
  112.  
  113. (set which_wbuch
  114.     (askoptions
  115.         (prompt #copying-dicts)
  116.         (help @copyfiles-help)
  117.         (choices "Kleines Wörterbuch (eng_ger1.dic)" "Mittleres Wörterbuch (extra_1.dic)" "Deutsch-Englisches Wörterbuch (extra_2.dic)")
  118.         ;                    1                                  2                                     4
  119.         (default 7)
  120.     )
  121. )
  122.  
  123. ( if (BITAND which_wbuch 1)
  124.     (copyfiles
  125.         (prompt "Kopiere eng_ger1.dic...")
  126.         (source "eng_ger1.dic")
  127.         (dest ftransdir)
  128.     )
  129. )
  130.  
  131. ( if (BITAND which_wbuch 2)
  132.     (copyfiles
  133.         (prompt "Kopiere extra_1.dic...")
  134.         (source "extra_1.dic")
  135.         (dest ftransdir)
  136.     )
  137. )
  138.  
  139. ( if (BITAND which_wbuch 4)
  140.     (copyfiles
  141.         (prompt "Kopiere extra_2.dic...")
  142.         (source "extra_2.dic")
  143.         (dest ftransdir)
  144.     )
  145. )
  146.  
  147. (complete 50)
  148.  
  149. (set editor
  150.     (askchoice
  151.         (prompt "Verwenden sie einen der beiden Editoren?")
  152.         (help @askchoice-help)
  153.         (choices "Keinen" "CygnusEd" "GoldEd")
  154.         (default 0)
  155.     )
  156. )
  157.  
  158. (complete 60)
  159.  
  160. ;Wurde CygnusEd ausgewählt?
  161.  
  162. ( if(= editor 1)
  163.     (
  164.         (set which_ced
  165.             (askchoice
  166.                 (prompt "\nWelche CygnusEd-Version verwenden Sie?")
  167.                 (help @askchoice-help)
  168.                 (choices "CED 2.12" "CED 3.5")
  169.                 (default 0)
  170.             )
  171.         )
  172.  
  173.         ( if (= which_ced 0)
  174.             (copyfiles
  175.                 (prompt #copying-ced212lib)
  176.                 (source rexxcedlib212)
  177.                 (dest libs_dir)
  178.                 (infos)
  179.                 (noposition)
  180.             )
  181.         )
  182.  
  183.         ( if (= which_ced 1)
  184.             (copyfiles
  185.                 (prompt #copying-ced35lib)
  186.                 (source rexxcedlib35)
  187.                 (dest libs_dir)
  188.                 (infos)
  189.                 (noposition)
  190.             )
  191.         )
  192.  
  193.         (complete 70)
  194.  
  195.         (copyfiles
  196.             (prompt #copying-ced_arexx-script)
  197.             (source ftced_script)
  198.             (dest rexx_dir)
  199.             (infos)
  200.             (noposition)
  201.         )
  202.  
  203.         (complete 72)
  204.  
  205.         (copyfiles
  206.             (prompt #copying-ced2_arexx-script)
  207.             (source ftced2_script)
  208.             (dest rexx_dir)
  209.             (infos)
  210.             (noposition)
  211.         )
  212.  
  213.         (complete 74)
  214.  
  215.         (copyfiles
  216.             (prompt #copying-ced3_arexx-script)
  217.             (source ftced3_script)
  218.             (dest rexx_dir)
  219.             (infos)
  220.             (noposition)
  221.         )
  222.  
  223.         (complete 76)
  224.  
  225.         (copyfiles
  226.             (prompt #copying-ced_datei_arexx-script)
  227.             (source ftced_datei_script)
  228.             (dest rexx_dir)
  229.             (infos)
  230.             (noposition)
  231.         )
  232.  
  233.         (complete 78)
  234.  
  235.         (copyfiles
  236.             (prompt #copying-ced_block_arexx-script)
  237.             (source ftced_block_script)
  238.             (dest rexx_dir)
  239.             (infos)
  240.             (noposition)
  241.         )
  242.     )
  243.  
  244.     (complete 80)
  245. )
  246.  
  247. ;Wurde GoldEd ausgewählt?
  248.  
  249. ( if(= editor 2)
  250.         (copyfiles
  251.             (prompt #copying-ged_arexx-script)
  252.             (source ftged_script)
  253.             (dest ged_arexx_dir)
  254.             (infos)
  255.             (noposition)
  256.         )
  257. )
  258.  
  259. (complete 90)
  260.  
  261. (set demo_arexx-script
  262.     (askbool
  263.         (prompt #demo_arexx)
  264.         (help #help_demo_arexx_script)
  265.         ;(choices "Yes" "No" )
  266.         (default 0)
  267.     )
  268. )
  269.  
  270. ( if (= demo_arexx-script 1)
  271.     (copyfiles
  272.         (prompt #copying-ftrans_arexx-script)
  273.         (source ftrans_arexx)
  274.         (dest rexx_dir)
  275.         (infos)
  276.         (noposition)
  277.     )
  278. )
  279.  
  280. (set which_wbuch
  281.     (askoptions
  282.         (prompt #copying-rexx-scripts)
  283.         (help @copying-files)
  284.         (choices "FTToggleAL.rexx   - Schaltet Automodus ein/aus" "FTToggleCB.rexx   - Schaltet Clipboard ein/aus" "FTToggleIReq.rexx - Schaltet InfoRequester aus/ein"
  285.         ;                                 1                                             2                                                     4
  286.              "FTToggleV.rexx    - Schaltet Vorschläge ein/aus" "FTransFW.rexx     - Demo für FinalWriter")
  287.         ;                                 8                                            16
  288.         (default 15)
  289.     )
  290. )
  291.  
  292. ( if (BITAND which_wbuch 1)
  293.     (copyfiles
  294.         (prompt "Kopiere FTToggleAL.rexx...")
  295.         (source "Arexx-Scripts/FTToggleAL.rexx")
  296.         (dest rexx_dir)
  297.         (infos)
  298.         (noposition)
  299.     )
  300. )
  301.  
  302. ( if (BITAND which_wbuch 2)
  303.     (copyfiles
  304.         (prompt "Kopiere FTToggleCB.rexx...")
  305.         (source "Arexx-Scripts/FTToggleCB.rexx")
  306.         (dest rexx_dir)
  307.         (infos)
  308.         (noposition)
  309.     )
  310. )
  311.  
  312. ( if (BITAND which_wbuch 4)
  313.     (copyfiles
  314.         (prompt "Kopiere FTToggleIReq.rexx...")
  315.         (source "Arexx-Scripts/FTToggleIReq.rexx")
  316.         (dest rexx_dir)
  317.         (infos)
  318.         (noposition)
  319.     )
  320. )
  321.  
  322. ( if (BITAND which_wbuch 8)
  323.     (copyfiles
  324.         (prompt "Kopiere FTToggleV.rexx...")
  325.         (source "Arexx-Scripts/FTToggleV.rexx")
  326.         (dest rexx_dir)
  327.         (infos)
  328.         (noposition)
  329.     )
  330. )
  331.  
  332. ( if (BITAND which_wbuch 16)
  333.     (copyfiles
  334.         (prompt "Kopiere FTransFW.rexx...")
  335.         (source "Arexx-Scripts/FTransFW.rexx")
  336.         (dest rexx_dir)
  337.         (infos)
  338.         (noposition)
  339.     )
  340. )
  341.  
  342. (complete 100)
  343.  
  344. (exit)
  345.